Aminet 25/Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso/Aminet/gfx/edit/AmiCAD_1_2.lha/AmiCAD/Installation fran軋is

Text File | 1998-04-26 | 9.7 KB | 299 lines

;------------------------------------------------------------------------
; Script d'installation du programme AmiCAD
;
; $VER: AmiCAD-Install 1.1 (21.03.98)
;
; (C)1997-1998 R.Florac

(set #AmiCADdestdir-help "Un répertoire AmiCAD sera créé à l'endroit que vous aurez choisi,\ns'il n'existait pas déjà.\nLe logiciel et ses bibliothèques y seront copiés.")

;****************************************************************************
; Choix du répertoire destination *******************************************
;****************************************************************************

(set #destination
    (expandpath
    (askdir
        (prompt "Où voulez vous créer le répertoire AmiCAD?")
        (help #AmiCADdestdir-help)
        (default @default-dest)
        (disk)
    )
    )
)

(set @default-dest (tackon #destination "AmiCAD"))

(if (= 0 (askbool
    (prompt "Le répertoire destination pour AmiCAD\nsera "@default-dest)
    (choices "Continuer" "Arrêter")
    (help "Si le répertoire spécifié ne vous convient pas, choisissez 'Arrêter': vous devrez relancer le programme d'installation et choisir une autre destination.")
    ))
    (exit (quiet))
)

;****************************************************************************
; Création des répertoires destination **************************************
;****************************************************************************

(makedir (tackon @default-dest "Bibliothèques"))
(makedir (tackon @default-dest "Schémas") (infos))
(makedir (tackon @default-dest "Clips"))
(makedir (tackon @default-dest "ARexx"))

;****************************************************************************
; Copie des fichiers du répertoire AmiCAD ***********************************
;****************************************************************************

(copyfiles
    (source "")
    (dest @default-dest)
    (pattern "AmiCAD#?")
    (prompt "Choisissez les fichiers à copier")
    (help (cat "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.\nAmiCAD est le fichier programme\nAmiCAD.keys est le fichier contenant des définitions de touches programmables\n"
    "AmiCAD.prefs est le fichier définissant les options de fonctionnement du programme (préférences)\nAmiCAD.palette est un fichier de configuration contenant une palette avec le fond d'écran noir, "
    "ce fichier peut être chargé à l'aide du menu Préférences"))
    (confirm)
    (infos)
)

;****************************************************************************
; Copie des bibliothèques de symboles ***************************************
;****************************************************************************

(copyfiles
    (source "Bibliothèques")
    (dest (tackon @default-dest "Bibliothèques"))
    (pattern "#?")
    (prompt "Choisissez les fichiers\n de symboles à copier\nATTENTION: le format de ces fichiers a changé, remplacez vos anciens fichiers par les nouveaux.")
    (help "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.")
    (confirm)
    (infos)
)

;****************************************************************************
; Copie des clips ***********************************************************
;****************************************************************************

(copyfiles
    (source "Clips")
    (dest (tackon @default-dest "Clips"))
    (pattern "#?")
    (prompt "Choisissez les fichiers\n contenant un clip à copier\n")
    (help "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.")
    (confirm)
    (infos)
)

;****************************************************************************
; Copie des scripts ARexx ***************************************************
;****************************************************************************

(copyfiles
    (source "ARexx")
    (dest (tackon @default-dest "ARexx"))
    (pattern "#?")
    (prompt "Choisissez les scripts ARexx à copier\nDe nombreux scripts ont été améliorés.")
    (help "Sélectionnez les fichiers que vous voulez copier, seuls ceux qui sont marqués le seront.")
    (confirm)
    (infos)
)

;****************************************************************************
; Copie des schémas d'exemples **********************************************
;****************************************************************************

(copyfiles
    (source "Schémas")
    (dest (tackon @default-dest "Schémas"))
    (pattern "#?")
    (prompt "Choisissez les schémas que vous voulez copier\n")
    (help "Sélectionnez les fichiers à copier, seulement ceux qui sont marqués le seront.")
    (confirm)
    (infos)
)

;****************************************************************************
; Mise à jour des icones du programme (AmiCAD) ******************************
;****************************************************************************

(tooltype
    (prompt "Écriture type d'outil Libs")
    (dest (tackon @default-dest "AmiCAD"))
    (settooltype "LIBS" (tackon @default-dest "Bibliothèques"))
)

(tooltype
    (prompt "Écriture type d'outil Clips")
    (dest (tackon @default-dest "AmiCAD"))
    (settooltype "Clips" (tackon @default-dest "Clips"))
)

;****************************************************************************
; Copie des catalogues ******************************************************
;****************************************************************************

(set catalogue 0)
(if (= @language "français") (set catalogue 1))
(if (= @language "deutsch") (set catalogue 2))
(if (= @language "ÃeÓtina") (set catalogue 4))
(if (= @language "español") (set catalogue 8))
(if (= @language "italiano") (set catalogue 16))
(if (= @language "english") (set catalogue 32))

(set catalogues
    (askoptions
        (prompt "Sélectionnez les catalogues que vous voulez copier")
        (help "Seul le catalogue correspondant à votre pays est nécessaire.\nLe logiciel utilise l'anglais par défaut.")
        (choices "Français" "Deutsch" "Czech" "Español" "Italiano" "english")
        (default catalogue)
    )
)

(if (= (BITAND catalogues 1) 1)
    (   (makedir (tackon @default-dest "Catalogs"))
    (copyfiles
        (prompt "Copie du catalogue français")
        (source ("Catalogs/français"))
        (dest   (tackon @default-dest "catalogs/français"))
        (all)
    )
    )
)

(if (= (BITAND catalogues 2) 2)
    (   (makedir (tackon @default-dest "Catalogs"))
    (copyfiles
        (prompt "Copie du catalogue allemand")
        (source ("Catalogs/deutsch"))
        (dest   (tackon @default-dest "catalogs/deutsch"))
        (all)
    )
    )
)

(if (= (BITAND catalogues 4) 4)
    (   (makedir (tackon @default-dest "Catalogs"))
    (copyfiles
        (prompt "Copie du catalogue tchèque")
        (source ("Catalogs/ÃeÓtina"))
        (dest   (tackon @default-dest "catalogs/ÃeÓtina"))
        (all)
    )
    )
)

(if (= (BITAND catalogues 8) 8)
    (   (makedir (tackon @default-dest "Catalogs"))
    (copyfiles
        (prompt "Copie du catalogue espagnol")
        (source ("Catalogs/español"))
        (dest   (tackon @default-dest "catalogs/español"))
        (all)
    )
    )
)

(if (= (BITAND catalogues 16) 16)
    (   (makedir (tackon @default-dest "Catalogs"))
    (copyfiles
        (prompt "Copie du catalogue italien")
        (source ("Catalogs/italiano"))
        (dest   (tackon @default-dest "catalogs/italiano"))
        (all)
    )
    )
)

(if (= (BITAND catalogues 32) 32)
    (   (makedir (tackon @default-dest "Catalogs"))
    (copyfiles
        (prompt "Copie du catalogue anglais")
        (source ("Catalogs/english"))
        (dest   (tackon @default-dest "catalogs/english"))
        (all)
    )
    )
)

;****************************************************************************
; Copie des sources des catalogues ******************************************
;****************************************************************************
(set catalogues
    (askbool
        (prompt "Voulez-vous copier les sources du catalogue?")
        (help "Les fichiers sources sont nécessaires uniquement si vous voulez créer un nouveau catalogue, pour un pays pour lequel il n'existe pas.")
        (default 0)
    )
)


(if (= catalogues 1)
    (   (set sources
        (askoptions
        (prompt "Sélectionnez les catalogues que vous voulez copier")
        (help "Seul le catalogue correspondant à votre pays est nécessaire.\nLe logiciel utilise l'anglais par défaut, sauf pour les bibliothèques de symboles pour lesquelles il utilise le français.")
        (choices "Français" "Deutsch" "Czech" "Italiano" "english")
        (default catalogue)
        )
    )
    (if (= (BITAND sources 1) 1)
        (   (makedir (tackon @default-dest "Catalogs"))
        (copyfiles
            (prompt "Copie du catalogue français")
            (source ("Catalogs"))
            (pattern ("#?.(français.ct|cd)"))
            (dest   (tackon @default-dest "catalogs"))
            (files)
        )
        )
    )
    (if (= (BITAND sources 2) 2)
        (   (makedir (tackon @default-dest "Catalogs"))
        (copyfiles
            (prompt "Copie du catalogue allemand")
            (source ("Catalogs"))
            (pattern ("#?.(deutsch.ct|cd)"))
            (dest   (tackon @default-dest "catalogs"))
            (files)
        )
        )
    )
    (if (= (BITAND sources 4) 4)
        (   (makedir (tackon @default-dest "Catalogs"))
        (copyfiles
            (prompt "Copie du catalogue tchèque")
            (source ("Catalogs"))
            (pattern ("#?.(ÃeÓtina.ct|cd)"))
            (dest   (tackon @default-dest "catalogs"))
            (files)
        )
        )
    )
    (if (= (BITAND sources 8) 8)
        (   (makedir (tackon @default-dest "Catalogs"))
        (copyfiles
            (prompt "Copie du catalogue italien")
            (source ("Catalogs"))
            (pattern ("#?.(italiano.ct|cd)"))
            (dest   (tackon @default-dest "catalogs"))
            (files)
        )
        )
    )
    (if (= (BITAND sources 16) 16)
        (   (makedir (tackon @default-dest "Catalogs"))
        (copyfiles
            (prompt "Copie du catalogue anglais")
            (source ("Catalogs"))
            (pattern ("#?.(english.ct|cd)"))
            (dest   (tackon @default-dest "catalogs"))
            (files)
        )
        )
    )
    )
)

(exit)